﻿program PingPong2; {$APPTYPE CONSOLE}

{$IFDEF FPC}
  {$MODE Delphi}
{$ENDIF}

uses
  SysUtils,
  Actors in 'Actors.pas',
  PingPongPlayer in 'PingPongPlayer.pas';

var
  i: Integer;
begin
  try
    WriteLn('*** Teste Stress');
    for i := 10 downto 1 do
      Send(TPingPong, [i, i*50000]);

    ReadLn;
    WriteLn('*** Teste Milhão');
    Send(TPingPong, ['milhão:', 1000000]);
  except
    on E:Exception do
      Writeln(E.Classname, ': ', E.Message);
  end;
  ReadLn;
end.

